home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 91
- Top = 123
- ActiveControl = DatabaseListbox
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'DataMake : Database Create Unit --- Code generator'
- ClientHeight = 203
- ClientWidth = 516
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 6
- Top = 6
- Width = 54
- Height = 13
- Caption = '&Databases:'
- FocusControl = DatabaseListbox
- end
- object Label2: TLabel
- Left = 108
- Top = 6
- Width = 35
- Height = 13
- Caption = '&Tables:'
- FocusControl = TableListbox
- end
- object Label3: TLabel
- Left = 210
- Top = 6
- Width = 30
- Height = 13
- Caption = '&Fields:'
- FocusControl = FieldListbox
- end
- object Label4: TLabel
- Left = 312
- Top = 6
- Width = 40
- Height = 13
- Caption = '&Indexes:'
- FocusControl = IndexListbox
- end
- object SpeedButton1: TSpeedButton
- Left = 356
- Top = 164
- Width = 121
- Height = 33
- Caption = 'Generate'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00370777033333
- 3330337F3F7F33333F3787070003333707303F737773333373F7007703333330
- 700077337F3333373777887007333337007733F773F333337733700070333333
- 077037773733333F7F37703707333300080737F373333377737F003333333307
- 78087733FFF3337FFF7F33300033330008073F3777F33F777F73073070370733
- 078073F7F7FF73F37FF7700070007037007837773777F73377FF007777700730
- 70007733FFF77F37377707700077033707307F37773F7FFF7337080777070003
- 3330737F3F7F777F333778080707770333333F7F737F3F7F3333080787070003
- 33337F73FF7377733333078000770333333373377733733333330000}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object Label5: TLabel
- Left = 416
- Top = 6
- Width = 55
- Height = 13
- Caption = '&Selections :'
- FocusControl = TableListbox
- end
- object DatabaseListbox: TListBox
- Left = 6
- Top = 24
- Width = 95
- Height = 131
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- OnClick = DatabaseListboxClick
- OnDblClick = DatabaseListboxDblClick
- end
- object TableListbox: TListBox
- Left = 108
- Top = 24
- Width = 95
- Height = 131
- ItemHeight = 13
- Sorted = True
- TabOrder = 1
- OnClick = TableListboxClick
- OnDblClick = TableListboxDblClick
- end
- object FieldListbox: TListBox
- Left = 210
- Top = 24
- Width = 95
- Height = 131
- ItemHeight = 13
- TabOrder = 2
- end
- object IndexListbox: TListBox
- Left = 312
- Top = 24
- Width = 95
- Height = 131
- ItemHeight = 13
- TabOrder = 3
- end
- object SelectionsListBox: TListBox
- Left = 414
- Top = 24
- Width = 95
- Height = 131
- ItemHeight = 13
- TabOrder = 4
- OnDblClick = SelectionsListBoxDblClick
- end
- object Panel1: TPanel
- Left = 16
- Top = 160
- Width = 297
- Height = 37
- Caption = 'Panel1'
- TabOrder = 5
- object Label6: TLabel
- Left = 12
- Top = 4
- Width = 265
- Height = 29
- AutoSize = False
- Caption =
- 'Double click in the "Tables" list to add a new selection to be c' +
- 'reated. Then click "Generate".'
- end
- end
- object Table: TTable
- DatabaseName = 'DBDEMOS'
- TableName = 'BIOLIFE.DB'
- Left = 30
- Top = 36
- end
- end
-